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As of today the total distribution of the Apple Assembly Line 
is nearly 350. Let's shoot for 1000 by the end of 1981! I 
will have a full page ad in the next eight issues of NIBBLE, 
so I think 1000 is a reasonable goal. MThank you for your 
Support! 
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Cross Reference (XREF) for S-C ASSEMBLER II 


Bob Kovacs has a new product, one which many of you have 
asked me for. It enables you to produce a complete cross 
reference listing of all symbols used in an assembly language 
program. See his ad on page 7 for a description and ordering 
information. 


I am honored to have three companies (Rak-Ware, Decision 
Systems, and Flatland Software) producing software to 
complement my assembler! 


80 Columns on Your Printer 


For some reason unknown to me Apple's Parallel Interface Card 
comes with at least three different ROM's. There seems to me 
no indication on the package which one you are getting, and 
no listing in the manual of the exact ROM on the board. fMThis 
leads to confusion, because some ROM versions will print 
80-column assembly listings at the drop of a hat (Just type 
PR#1 and ASM, and you have it!); but others require 

special treatment. 


If you have the latter type, I have found that this works: 
:PR#1 (assuming slot # 1) 


:$579:50 ($578 + slot# ) 
:ASM 


Text File I/O in Assembly Language Programs 


A surprisingly large number of people have written or called to 
ask the same question: 


"How can I read or write a text file from my program? 
I know I can issue OPEN, READ, WRITE, and CLOSE 
commands just like in Applesoft -- by outputting a 
control-D and the command string. But after that, 
where is the data?" 


It is really very simple, and after I tell you, you may be just 
as embarrassed as they were! 


Remember that in Applesoft, after opening a file and setting it 
up to read with the OPEN and READ commands, you actually read it 
with normal INPUT statements. In assembly language you do the 
same thing. You can either input a line by calling the monitor 
routine at SFD6F, or you can read character-by-character by 
calling the character input routine at SFDOC. After a JSR SFDOC, 
the input character will be in the A-register. After a JSR 
SFD6F, the input line will be in the monitors buffer starting at 
$0200. and the X-register will contain the number of characters 
in the line (not counting the carriage return). 


Also remember that after using the OPEN and WRITE commands, all 
you do in Applesoft to write on a text file is use the normal 
PRINT statement. In the same way, from assembly language, you 
just call the monitor print character routine at SFDED. The 
character to be written should be in the A-register, and then use 
JSR $FDED. 


Here is a little program which opens a text file and reads it 
into a buffer at $4000. It demonstrates a few more tricks you 
might need to know, as well. 


Lines 1180-1270 patch DOS so that it thinks you are executing an 
Applesoft program. (If you really are calling this from a 
RUNning Applesoft program. you can skip lines 1190 and 1200.) We 
want to be able to issue DOS commands by printing control-D and 
the command string, so we have to be RUNning. We want to be able 
to tell when the end-of-file comes without getting an “OUT OF 
DATA" error, SO we turn on the Applesoft ON ERR flag and set it 
up to branch to our own END.OF.DATA routine. 


Lines 1310-1350 print the DOS OPEN and READ commands. The 
message printer is a very simple loop at lines 1630-1690. 


Lines 1380-1500 read the characters from the file and store them 
in a buffer at $4000. I save the stack pointer before the loop 
so I can restore it after the end-of-file occurs. Lines 
1530-1570 restore the stack pointer, close the file, and return 
to DOS. 


I really should clean up the mess I created with lines 1180-1270, 
but I will leave that as an exercise for the reader. 
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DEMONSTRATION OF READING A TEXT FILE 


OO 


52) 


PATCH DOS SO END OF FILE WILL 
BRANCH TO MY “END.OF.DATA" 


LDA #1 TELL DOS WE ARE IN APPLESOFT 
STA DOS.LANGUAGE. FLAG 

STA CURRENT.LINE.NO+1 NOT IN DIRECT MODE 
CHAR NOT DIRECT MODE 
LDA #SFF TURN ON "ON ERR" 

STA FLAG 


° - PNTR 
LDA OF .DATA 
STA ~ONERR. PNTR+1 
OPEN THE FILE 


a ee 


READ THE FILE 


TSX 

STX OLD.STACK.PNIR 
LDA #BUFFER 

STA BUF.PNIR 

LDA ER 


STA BUF .PNIR+1 


1 JSR MON.RDKEY READ CHARACTER 
STA TA (BUF .PNIR) rY 

ENE SI 

INC BUF.PNIR+1 
. BNE .1 . « ALWAYS 
END.OF.DATA 

LOK OLD. STACK .PNIR 
*& 
* PRINT A MESSAGE 
* MESSAGE STARTS AT OTS »¥ 
* MESSAGE ENDS WITH 060 BYTE 
QUOTE. PRINT 
: LDA Ons +¥ 

JSR MON.COUT 

BNE .1 . » ALWAYS 
2 RTS 
* 

* 

SOO EN SHS 84 CONTROL-D 


.AS -/OPEN TESTFILE 
“BS eho / 


- 3- 


64- 84 1750 QREAD .HS 84 CONTROL-D 


l- ¢8 1760 “AS - 
0872- 8 00 1770 AS BOOe TD TESTFILE/ 


0874- 84 1780 QCLOSE .HS 84 CONTROL-D 


O87A- 8D 60 BS BO” 


1790 
1806 ‘ 
087C- 1820 LD.STACK.PNIR .BS 1 
1830 *———_-—_--—_ 
1840 
1850 


4000- 


SYMBOL TABLE 


0O9D- BUF.PNIR 
rt BUFF 


PRINT 
2=0853 
READER 


UP ae 
qe 
ie) 


Applesoft Internal Entry Points 


An excellent article appeared just over a year ago (by the same 
title) in The Apple Orchard, Volume 1, Number 1, March/April 
1980. John Crossley of Apple Computer, Inc. wrote it. He 
revealed most of the usable entry points within the Applesoft 
ROM, and many details on how they work and how to use them. If 
you don't have that magazine, go get one right away. They are 
available at some stores, through some local Apple clubs, and 
directly from the publisher (the Internatioal Apple Corps). 
There are a few typographical errors, but you should be able to 
figure them out by comparing with a disassembly. 


To get you started, I have made up a list of my own which 
includes the starting addresses for all the keyword routines. 

I got these from the ROM itself. The keyword list starts at 
SDODO, and a parallel list of addresses starts at $D000. The 
addresses in the list are all low-byte-first, and are all 
pointing to one byte before the actual start. That is because 
Applesoft branches to the appropriate routine by placing the 
address from this list on the stack and then using RTS (see AAL 
issue #1, page 11, for an explanation of this technique). 
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Applesoft Entry Points 


This chart shows all the token values for Applesoft, and the 
address where the token is processed. 


token keyword addr token keyword addr 
80 128 END D870 B6 182 LOAD D8C9 
81 129 FOR D766 B7 183 SAVE D8BO 
82 130 NEXT DCF 9 B8 184 DEF E313 
83 131 DATA D995 B9 185 POKE E77B 
84 132 INPUT DBB2 BA 186 PRINT DAD5 
85 133 DEL F331 BB 187 CONT D896 
86 134 DIM DFD9 BC 188 LIST D6A5 
87 135 READ DBE2 BD 189 CLEAR D66A 
88 136 GR F390 BE 190 GET DBAO 
89 137 TEXT F399 BF 191 NEW D649 
8A 138 PR# FIE5 CO 192 TAB( 

8B 139 IN# FIDE Cl 193 TO 

8C 140 CALL F1D5 C2 194 FN 

8D 141 =PLOT F225 C3 195 SPC ( 

8E 142 HLIN F232 C4 196 THEN 

8F 143 VLIN F241 C5 197 AT 

90 144 HGR2 F3D8 C6 198 NOT 

91 145 HGR F3E2 C7 199 STEP 

92 146 HCOLOR= F6E9 C8 200 + 

93 147 HPLOT F6FD C9 201 - 

94 148 DRAW F769 CA 202 * 

95 149 xXDRAW F76F CB 203 / 

96 150 HTAB F7E7 CC 204 ~* 

97 151 HOME FC58 CD 205 AND 

98 152 ROT= F721 CE 206 OR 

99 153 SCALE= F727 CF 207 »> 

9A 154 SHLOAD F775 DO 208 = 

9B 155 TRACE F26D Dl 209 < 

9C 156 NOTRACE F26F D2 210 #£#=SGN EB91 
9D 157 NORMAL F273 D3 211 #;1INT EC24 
9E 158 INVERSE F277 D4 212 ABS EBBO 
9F 159 FLASH F280 D5 213 USR OO0A 
AQ 160 COLOR= F24F D6 214 =FRE E2DF 
Al 161 POP D96B D7 215 SCRN( D413 
A2 162 VTAB F256 D8 216 PDL DFCE 
A3 163 HIMEM: F286 D9 217 #4=xXPOS E300 
A4 164 LOMEM: F2A6 DA 218 SOR EE8E 
A5 165 ONERR F2CB DB 219 RND EFAF 
A6 166 RESUME F318 DC 220 LOG E942 
A7 167 RECALL F3BC DD 221 EXP EFOA 
A8 168 STORE F39F DE 222 COS EFEB 
AQ9 169 SPEED= F262 DF 223 £42SIN EFF2 
AA 170 LET DA46 EQ 224 TAN F03B 
AB 171 #£4=GOTO D93E El 225 ATN FO9F 
AC 172 # £=#RUN D912 E2 226: PEEK E765 
AD 173 IF D9C9 E3 227 #3=LEN E6D7 
AE 174 RESTORE D849 E4 228 =STRS E3C6 
AF 175 & O3F5 E5 229 VAL E708 
BO 176 GOSUB D921 E6 230 ASC E6E6 
Bl 177 RETURN D96B E7 231 CHRS$ E647 
B2 178 REM D9DC E8 232 LEFTS E65B 
B3 179 sToP D86E E9 233 RIGHTS E687 
B4 180 ON D9EC EA 234 MIDS E691 
B5 181 WAIT E784 


Patch S-C Assembler II for More Errors 


Some of you have asked for a way to see all your errors at once. 
If you patch Version 4.0 in this simple way, you will see all 
error messages during one ASM, instead of aborting the assembly 
after the first error. 


Look at $1752 to $1754; you should see 20 81 1A. If you do, then 
make this patch: 


2$1752:4C 8E 18 


Now try an assembly of some source code with several errors in 
it. You will see all the errors on your screen. Or if your 
printer is on, they will all print. 


Personally. I liked it better the other way. But if you never 
make more than one error per program, you won't be able to tell 
the difference! 


Fast String Input Routine for Applesoft 


Yet another use for the imperious ampersand! This program will 
read a line from the keyboard or a text file into a string 
variable. It will accept commas and colons without complaint, 
too. No more "EXTRA IGNORED" messages, and much less chance of 
garbage collection tying things up. 


The program is shown here with the origin set to $0300, the most 
popular place in your Apple. If that taxi is already full, you 
can change the origin to whatever you like. In fact, the 
subroutine itself is completely relocatable. You can put it 
anywhere in memory you like, just so you set $3F6 and 3F7 to 
point to it. 


Lines 1160-1220 are executed if you BRUN a file with this program 
on it. They put a JMP GET into $3F5, so that the "&" will call 
my subroutine. Once this code is executed, you can execute 
Statements like "“&GET A$" to read a line into a string. 


Lines 1240-1500 are the input subroutine. At line 1240 the token 
following the ampersand is tested; it should be SBE, which is the 
token for "GET", If not, JMP SDEC9 makes your screen say "SYNTAX 
ERROR"! 


Lines 1270 and 1280 set up the address of the string variable in 
locations $83 and $84. We will use this later to tell Applesoft 
where the input line is. 


Lines 1290-1360 change the prompt symbol to a bell (in case you 
backspace too much) and call on the monitor input routine to read 
a line. After the line is read, the prompt is restored to 
whatever it was before. The length of the input line is in the 
X-register, and the line itself is in the buffer starting at 
$0200. 


Lines 1370 and 1380 call on Applesoft to set aside space for the 
input line in the string area. This may force garbage collection 
if you are about out of memory at the time. GETSPA leaves the 
address of the start of the slot set aside for our input line in 
locations $71 and $72. 


Lines 1390-1460 store the length and address of the input line 
into the string variable. The address is of the slot GETSPA just 
reserved. 


Lines 1470-1500 call on MOVSTR to copy the input line from the 
monitor's input buffer (at $0200) into the slot reserved by 
GETSPA. 


Now if you want to read some data off the disk which might have 
commas and colons in it, you can do it like this: 


100 PRINT CHRS$(4) "OPEN MY.FILE" 
110 PRINT CHRS(4) "READ MY.FILE" 
120 FOR I = 1 TO 10 

130 & GET AS$(I) 

140 NEXT I 


SC .XREF 


CROSS REFERENCE TABLE GENERATOR FOR THE S-C ASSEMBLER 


00% MACHINE LANGUAGE FOR FAST OPERATION  @ OPERATES ON S-C ASSEMBLER VER 
i SOURCE CODE « LABELS SORTED AND QUTPUT IN ALPHABETIC ORDER e@LABEL 
DEFINITION LINE FLAGGED WITH STAR « HANDLES ALL LEGAL OPERAND EXPRESSIONS 

e ALSO IDENTIFIES ALL X AND Y INDEXED ADDRESSES «# KEYBOARD DISPLAY CONTROL 
AND OPTIONAL PRINTER OUTPUT « FOR USE WITH EITHER APPLE II OR APPLE II PLUS 


1000 A. CROSS. REFERENCE. EXAMPLE S-C ASSEMBLER CROSS-REFERENCE GENERATOR 
1010 # EQUATE DIRECTIVES” COPYRIGHT 198) RAK- WARE 
1020 MSGPTR .EQ $00 
1030 COUT .EQ $FDED 
1040 RETURN .EQ $80 ASCII DATA 

5 * 

A.CROSS.REFERENCEsEXAMPLE ©1000 

1060 START LDY #MSG1-MSG 
1070 LOOP LDA (MSGPTR),Y COUT “eo 1090 1130 1140 1150 
1080 BEQ@ END END 1080 #1120 


1090 JSR COUT 
1100 INY BUMP POINTER MSG. *loeo ph20 


1110 BNE LOOP ...ALWAYS 


1130 JSR COUT 
1140 JSR COUT START. sloso. 


1150 JSR COUT Y 1070 


1160 JSR COUT 
1170 Z.END.OF.EXAMPLE Ze ENO.OF. EXAMPLE 


PROGRAM DISKETTE & USER DOCUMENTATION: 
$ 20.29 (incLuDES POSTAGE & HANDLING 


LABEL NAME SOURCE LINE NUMBER 


RAK-WARE 
41 Ralph Road 


West Orange NJ 07052 


1010 * FAST INPUT STRING ROUTINE 
1020 * &GET <STRING VARIABLE> 
1030 * ACCEPTS ANY CHARACTER, UNLIKE NORMAL INPUT 
1040 *--------------------------------- 
O3F5- 1050 AMPERSAND.VECTOR ~EQ $3F5 
009D- 1060 LENGTH .EQ $9D 
DEC 9- 1070 SYNTAX.ERROR .EQ SDEC9 
DFE3- 1080 PTRGET .EQ SDFE3 
E452- 1090 GETSPA .EQ S$E452 
E5E2- 1100 MOVSTR .EQ SE5E2 
1110 *--------------------------------- 
0033- 1120 MON.PROMPT .EQ $33 
FD6F- 1130 MON.RDLINE .EQ SFD6F 
1140 *--------------------------------- 
1150 -OR $300 
0300- A9 4C 1160 LDA #$4C JUMP INSTRUCTION 
0302- 8D F5 03 1170 STA AMPERSAND.VECTOR 
0305- A9 10 1180 LDA #GET 
0307- 8D F6 03 1190 STA AMPERSAND.VECTOR+1 
O30A- AY 03 1200 LDA /GET 
030C- 8D F7 03 1210 STA AMPERSAND.VECTOR+2 
030F- 60 1220 RTS 
1230 *¥---- ee nn nn nr nr nr 
0310- C9 BE 1240 GET CMP #SBE GET TOKEN 
0312- FO 03 1250 BEQ .1l YES 
0314- 4C C9 DE 1260 JMP SYNTAX.ERROR 
0317- 20 Bl 00 1270 .1 JSR SBl 
031A- 20 E3 DF 1280 JSR PTRGET GET STRING DESCRIPTOR 
031D- A5 33 1290 LDA MON.PROMPT 
O31F- 48 1300 PHA 
0320- AQ 87 1310 LDA #$87 BELL FOR PROMPT 
0322- 85 33 1320 STA MON.PROMPT 
0324- 20 6F FD 1330 JSR MON.RDLINE INPUT A LINE 
0327- 68 1340 PLA 
0328- 85 33 1350 STA MON.PROMPT 
032A- 86 9D 1360 STX LENGTH SAVE LENGTH 
032C- 8A 1370 TXA 
032D- 20 52 E4 1380 JSR GETSPA GET SPACE IN STRING AREA 
0330- AO 00 1390 LDY #0 MOVE DATA INTO VARIABLE 
0332- 91 83 1400 STA ($83),Y LENGTH 
0334- A5 71 1410 LDA $71 
0336- C8 1420 INY 
0337- 91 83 1430 STA ($83),Y LO-BYTE OF ADDRESS 
0339- A5 72 1440 LDA $72 
033B- C8 1450 INY 
033C- 91 83 1460 STA ($83),Y HI-BYTE OF ADDRESS 
033E- AO 02 1470 LDY /$200 SET UP TO COPY STRING DATA 
0340- A2 00 1480 LDX #$200 INTO STRING AREA 
0342- A5 9D 1490 LDA LENGTH 
0344- 4C E2 E5 1500 JMP MOVSTR COPY IT NOW 
SYMBOL TABLE 
03F5- AMPERSAND.VECTOR 0237 DOH RDC ENE 
0310- E5E2- MOVSTR 
£452> GETSPA BECS- SYNTAX ER 
009D- LENGTH ERROR 


Decision 


Decision Systems 
S P.O. Box 13006 
ystems Denton, TX 76203 
817/382-6353 


DIS-ASSEMBLER 


DSA-DS dis-assembles Apple machine language programs into forms 
compatible with LISA, S-C ASSEMBLER (3.2 or 4.0), Apple's TOOL- 
KIT ASSEMBLER and others. DSA-DS dis-assembles instructions or 
data. Labels are generated for referenced locations within the 
machine language program. 

$25, Disk, Applesoft (32K, ROM or Language card) 


OTHER PRODUCTS 


ISAM-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 

$50 Disk, Applesoft. 


PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF...ELSE..., CASE, SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 

$35. Disk, Applesoft (48K, ROM or Language Card). 


FORN-DS is a complete system for the definition of input and output froms. FORM- 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 

$25 Disk, Applesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format numeric output, selec- 
tively clear variables (Applesoft's CLEAR gets everything), improve error handling, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 

$25 Disk, Applesoft. 


SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution. Improvements of 5-20% are common. As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 

$15 Disk, Applesoft (32K, ROM or Language Card). 


(Add $4.00 for Foreign Mail) 


*Apple Il is a registered trademark of the Apple Computer Co. 


Hiding Things Under DOS .ccccccccccccccccccccccccc cRiCk Hatcher 


In issue number 5/1980 of NIBBLE, a small article by William 
Reynolds III tells how to do something I have wondered about for 
a long time. That is how to move the HIMEM pointer down so that 
machine language code or something else can be put out of the way 
and protected. For example: I have a lower-case routine I like 
to use on key input; I also like to use the character display 
routine from Lawrence Hall of Science which is hooked into the 
control-Y pointer. This is one way to dump memory in both hex 
and ASCII. I have looked for protected areas but until now the 
only place seemed to be from $300 to S$3CF. This is a little over 
200 bytes, and I needed about 400. 


Neil Konzen's Program Line Editor (from Call A.P.P.L.E.) moves 
the file buffers down and leaves space between the buffers and 
DOS...but the manual which I sneaked a look at does not tell how 
to do it. The article in NIBBLE on page 40 finally revealed the 
secret. The file buffers are located by a pointer at locations 
$9D00 and $9D01 (least significant byte first, as usual). A DOS 
routine at $A7D4 builds the buffers using this pointer and the 
value of MAXFILES (at $AA57). [note: all addresses assume a 48K 
system] 


All you have to do is change the address at $9D00.9D01 and call 
the routine at $A7D4. I wanted to create a space of $200 bytes 
(512 decimal). The normal value at $9D00.9D01 is S$9CD3. MI 
changed it to $9AD3, and then typed A7D4G in the monitor. The 
value of HIMEM was automatically changed to $9400 from the usual 
$9600. The protected area is from $9B00 to S9CFF. The buffers 
are located from $9400 to S9AFF and DOS is located from $9D00 to 
BFFF. If a MAXFILES command is used it changes HIMEM but the 
buffer top at S$9AFF stays unchanged. 


To make space like this from an Applesoft program. here is all 
you need: 


100 POKE 40193,154 
110 POKE 40194,211 
120 CALL 42964 


It isn't so easy in Integer BASIC, because the routine moves 
HIMEM without moving the program down in memory. (Remember 
Integer BASIC programs are at the top of memory up against HIMEM; 
Applesoft programs are at the low end of memory.) The NIBBLE 
article gives a method for Integer BASIC, but I haven't tried it. 


I use an Applesoft HELLO program which first does the three lines 
above, and then BRUNs or BLOADS the code I want to hide. The 
BRUN portion sets up the I/O hooks at $36.39 and sets up the 
control-Y vector at S$3F8. I use the BLOAD if I want the code 
resident but not hooked in. 


Once the space is made, it stays there. If you INIT a slave 
disk, the slave has the same change. 


The NIBBLE article reveals a few more details about the buffers 
in which you may be interested. 
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Commented Listing of DOS 3.2.1 Format 


Here .is the second installment of DOS disassembly, covering the 

area from SBEAO through SBFFF. If you read the listing in last 

month's AAL carefully. you probably noted that it ended with the 
label definition "FORMAT", but no code followed. Well, here it 

is! 


FORMAT turns a blank diskette into one with address headers 
recorded on every track. Otherwise, the disk is empty. No 
directory is written into track $1l yet, nor is any DOS recorded 
yet in tracks 0, 1, and 2. When you use the INIT command, the 
first step exectured is to format the disk; after formatting, a 
DOS image and empty directory are written; then your HELLO 
program is SAVEd. 


The Apple Disk Interface depends on critical software timing to 
operate correctly. You will find many strange sequences of code 
(such as PHA, PLA, NOP, PHA, PLA between SBF47 and S$BF4B) which 
are for timing purposes. If you are interested in counting 
cycles, the timing for each opcode-address mode combination are 
listed in the Quick Reference Card that came with your S-C 
ASSEMBLER II Version 4.0. 


1900 * .LIST OFF 
1020 * DOS 3.2.1 DISASSEMBLY SBEAO-BFFF 
1030 * BOB SANDER-CEDERLOF 3-26-81 
0478- 1050 CURRENT. TRACK -EQ $478 
c0s0- 1070 PHASE.OFF -EQ $c080 
c08i- 1080 PHASE. : 081 
Cc08e- 1090 MOTOR.OFF : 088 
C089- 1100 MOTOR. : 089 
CO8A- 1110 ENABLE.DRIVE.1 . O8A 
ce HAR Beeoave:2 OB oe 
CO8D- 140 66H : 08D 
CO8E- 150 O7L : 08F 
CO8F- 1160 7H : O8F 
002D- 1180 SECTOR . 2D 
002F- 1190 VOLUME : 2F 
04]- 1200 TRACK.CNIR : il 
0046- 1210 DATA.CNIR : 6 
0047- 1220 SYNC. : 7 
004A- 1230 CONST.AA CE 
004B- 1240 FILL.CNIR . B 
004B- 1250 EMT. : B 
1260 * 
B965- 1270 READ.ADDRESS . 965 
~ 1280 - TRACK .ABSOLUTE . E 
BE37- 1290 “EXIT : E37 
BE39- 1300 ERROR. HANDLER : E39 
0040- 1320 ERR.BAD.DRIVE . 0 
1330 * BQ 
1340 .OR SBEAO 
130 . “TA $800 
BEAO- A9 80 1370 FORMAT LDA #128 SET TRACK REAL HIGH 
BEA2- 8D 78 04 1380 STA CURRENT TRACK SO DRIVE WILL HOME 
BEA7- 85 41 1400 SrA TRACK.CNIR INIT COUNTER FOR INIT ROUTINE 
BEAS— 20 1E BA 1410 . JSR SEEK . TRACK ABSOLUTE 
BEAC- AS AA 1430 SAVE IN PAGE ZERO FOR T 
BEAE- 85 4A 1440 LON Ey an SAA TMING 
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OWHOS 


AQ 


oo 


SCRBSBEBRGRGESS S BB Ss 
BRA Be 


OSGRRS RSs 
Hee 8s 
SSNSSSEENELNNNN 


ee 
; FILL ENTIRE TRACK WITH SYNC BYTES 


LDY #80 START WITH 80 SYNC-BYTES 

FILL. TRACK .WITH.SYNC 
STY SYNC.CNI # OF SYNC BYTES BETWEEN SECTORS 
LDA #39 WRITE SYNC'S OVER ENTIRE TRACK 


STA FILL.CNIR 

LDA 06H ,X GET READY TO WRITE 

LDA Q/L.X 

LDA SEF WRITE SFF_ EVERYWHERE 

STA oX ALL SET TO WRITE.... 

CMP O6L.X 

BIT 300 DELAY 3 CYCLES 
ol DEY 

BEQ .3 

PHA 

PLA THESE ARE JUST FOR TIMING 

NOP NEED 27 CYCLES BIWN WRITES 
-2 PHA 

PLA 

NOP 

NOP 


STA Q6H,X WRITE SYNC BYTE 
CMP SEL 


acs : .« ALWAYS 
3 DEC PILL.CNIR TRACK FULL YET? 
* e 
* WRITE 13-SECTOR HEADERS ON TRACK 
* EACH SECTOR CONSISTS OF AN ADDRESS BLOCK 
* AND A DATA . 
* ADDRESS: D5 AA B5 V1 V2 Tl T2 
* Sl S2 Cl C2 DE AA EB 
* DATA FORMATTED TO ALL SYNC BYTES 
FORMAT. TRACK 
1DY SYNC.CNI # SYNC BYTES BIWN SECTORS 
NOP 
31 BNE .4 .» ALWAYS 
2 PHA WRITE SYNC BYTES BEFORE SECTOR 
PHA 
PIA 
4 CMP (SO0.X) DELAY 6 CYCLES 
5 STA O6H,X WRITE NEXT SYNC BYTE 
CMP O6L,X 
DEY 
BNE .2 


SD 
JSR WRITE.BYTE.2 


JSR WRITE.BYTE. 3 
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BF77—- 48 
BF78- 68 
BF79- A4 
BF7B- BD 
BF7E- BD 
BF81- 30 
BF83- 88 
BF84- 48 
BF85- 68 
BF86- 48 
BF87- 68 
BF88- 48 
BF89- 68 
BF8A- 88 
BF8B- DO 
BF 20 
BF90- BO 
BF92- A5 
BF94- FO 


OTA WN OWO~0) URW DFO O~ION 
ODOOOO OOOO OOOO OOO OOGOO00O 


QQ 
Ooo 


NNDNNDNNDNNNNNNNDMNVNNNNNNNDNN NNNNNDNNNNNNDNNDNNDNNNDNNNNNNNNNNNNNNDN 
A Oe a eee ee SOR ORORODL ODDS 


JSR WRITE.BYTE. 3 


LDY #2 FILL WHOLE DATA BLOCK WITH SFF 
STY DATA.CNIR 
LDY #173 
BNE . .» ALWAYS 
DEY FINISHED? 
BE .8 YES, AT LEAST THIS GROUP 
23 CYCLES PER BYTE 
PLA 
NOP 
PHA 
PLA 
STA O6H,X 
cup O6L.X 
BCS 26 cee 
DEC DATA.CNIR FINISHED? 
7 YET, DO SECOND GROUP 

LDY SYNC.CNI 

BIT $00 DELAY 

STA 06H, 
LDA O6L.X 
LDA EMT.SECTOR OOMPUTE NEXT SECTOR # 
ADC #10 SKEW FACTOR = 10 

STA FMT.SECTOR 

SBC #12 
BEY CHECK. 
BCS 49 STORE VALUE MODULO 13 
HS 2C BIT’ OPCODE TO SKIP NEXT TWO BYTES 
STA FMT. SECTOR 
LDA #SFF 
IMP . DO NEXT SECTOR 
CHECK WHETHER TRACK OVERLAPPED 

HA TIME DELAY 

PLA 
LDY . 
LDA QeH x SET 
LDA O7L.X SENSE WRITE PROTECT 
EMI 4 R 
DEY 
PHA DELAY LOOP 

PLA 
PHA 
PIA 
PHA 
PLA 
DEY PINISHED WITH DELAY YET? 


BNE .1 

JSR READ.ADDRESS 

BCS . BAD READ 

LDA SECTOR SHOULD BE SECTOR 0 


BEQ .3 YES! 

LDY SYNC.CNT DIMINISH SYNC COUNT 
DEY AND TRY AGAIN 

CPY #16 UNLESS NOT ENOUGH LEFT 


BCC .4 DRIVE ERROR 
JMP FILL.TRACK .WITH.SYNC 


INC TRACK.CNIR NEXT TRACK 
CMP #35 .~~—Ss FINISHED? 
BCS .5 YES 
DOUBLE FOR TRACK SEEK ROUTINE 

JSR SEEK. TRACK .-ABSOLUTE : 
LDY SYNC.CNI BUMP SYNC.CNr BEFORE TRYING 
INY NEXT TRACK 
INY 
STY SYNC.CNI 
UMP FILL. TRACK .WITH.SYNC 
LDA #ERR.BAD.DRIVE 
JMP ERROR. HANDLER 
JMP RWTS EXIT 
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3070 #————_—__________ 
3080 * SUBROUTINES TO WRITE BYTE ON DISK 
3100 WRITE.BYTE.1 
48 110 PHA ADDRESS BLOCK FORMAT 
Bde 4a atS0 ORA CONST .AA 
BEET 9D DB CO 3120 GRR BRST 
BFC4— DD 8C CO 3150 L. 
BFC7- 68 3160 LA 
BFO8- C1 00 3170 CMP ($00.X) DELAY 6 CYCLES 
BFCA- 09 AA —- 3180 AA 
3190 WRITE.BYTE. 2 
BFCC- FA 3200 
3210 WRITE.BYTE. 3 
48 3330 PHA 
BFCE- 68 3330 PLA 
BFCF- FA 3340 NOP 
BFDO- 9D 8D CO 3250 STA Q6H,X 
BFD3- DD 8C CO 3260 CMP S6L.X 
BFD6- 60 3370 RTS 
3280 * 
3290 4 VARIOUS ODDS AND ENDS 
BFD7- 01 60 3340 -HS 0160 LEFT OVER 
BFD9- 4C DD AS 3320 PATCH] JMP SASDD 
BFDC- 8D 63 AA 3330 PATCH2 STA SAA64 
P- 8D 70 AA 334 STA SAA70 
BFE2- 8D 71 AA 3350 STA SAA7] 
BFES- 60 3360 
BFE6- 20 5B A7 3370 PATCH3 JSR SA75B 
BFES- 6C B7 AA 3380 
BFEC— 60 3390 RTS 
BFED- 20 7E AE 3400 PATCH4 JSR SAE7E FROM $B377 
BFFO- AF 9B B3 3410 [DX $B39B 
BFF3- 9A 3420 
BFF4- 20 16 A3 3430 JSR SA316 
BFF7- BA 3440 TSX 
BFF8- 85 9B B3 3450 STX $B39B 
FB- AO 0 3460 TDA $9 "DISK FULL" ERROR 
BFFD- 4C 85 B3 3470 IMP $B385 


Commented Listing of DOS 3.3 Format 


As promised three or four pages ago, here is my rendition of the 
DOS 3.3 Format routine. 


By the way, there are a lot of differences between DOS 3.2.1 and 
DOS 3.3 FORMAT routines. Later in this issue of AAL you will 
find a commented listing of the DOS 3.3 version. If you compare 
the two, you will find at least these major differences: 


1. DOS 3.2.1 formats 13 sectors per track, DOS 3.3 formats 
16 sectors per track. 

2. DOS 3.2.1 writes an address header followed by a long 
series of S$FF bytes where the data should be; DOS 3.3 
writes an address header followed by a standard data block 
(the data is all $00 bytes). 

3. DOS 3.2.1 writes an address header starting with 
SD5AAB5; DOS 3.3 writes an address header starting with 
SD5AA96. 

4. DOS 3.2.1 verifies correct format by trying to read 
sector 0 immediately after formatting the last sector; no 
other verification is made. DOS 3.3 tries to read EVERY 
sector just formatted; it does a complete check of the 
track. 

5. DOS 3.2.1 writes the sectors in the order 0, 10, 7, 4, 
1, 11. 8. 5, 2, 12. 9. 6, 3; DOS 3.3 writes them in 
sequential order 0, 1, 2, ... , 15. 
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BB 


BB 


1008 : LIST OFF 

1020 * DOS 3.3 PSE ELE SBEAF-BFFF 
103 : BOB SANDER-CEDERLO 3-26-81 
1050 RETRY .COUNT ONT EQ SOIB $578 

1060 * 

1070 PHASE .OFF Ft~«~t«t EQ SCO—™” 

1080 PHASE.ON 081 

1090 MOTOR.OFF 088 

1100 MOTOR.ON 089 

1110 ENABLE.DRIVE.1 O8A 

1120 ENABLE.D 22 E 08B 

1130 Q6L E 08C 

1140 Q6H 08D 

1150 Q7L “ED O8E 

118° 7H E O8F 

Tigo SECTOR EQ $2D 

1190 CONST.AA. E 

1200 FMT. R .E F 

1210 VOLUME -EQ $41 

1220 TRACK.CNIR .EQ $44 

1230 . “ER 5 

1250 * 

1260 WRITE.SECTOR EQ $B82A 

1270 READ.SE . 8DC 

1280 READ.ADDRESS . 944 

1290 RWTS.BUFF . BOO 

1300 WRITE.ADDRESS oE 56 

1310 SEEK.TRACK -E ESA 

1320 « TRACK oE E95 

1330 * 

1340 ERR.CANT.FORMAT -EQ $08 

1350 * 

1360 OR $BEAF 

1370 TA $800 

1380 * 

1390 FORMAT LDy #3 POINT AT VOLUME NUMBER 
1400 LDA (IOB.PNIR) ,Y 

1410 STA VOLUME 

1420 LDA #SAA SET UP CONSTANT IN PAGE ZERO 
1430 STA ST.AA FOR TIMING 

1440 LDY #86 CLEAR BUFFER TO ALL 00'S 
1450 LDA #0 

1460 STA TRACK .CNIR 

1470 .1 STA RWIS .BUFFER+255.Y 

1480 DEY UPPER PORTION 

1490 BNE .1 

1500 .2 STA RWIS.BUFFER,Y 

1510 DEY LOWER PORTION 

1520 BNE .2 

1530 LDA #80 SET UP AS THOUGH IN TRACK 80 
1540 JSR CK 

1550 LDA #40 START WITH 40 SYNC'S BIWN SECTORS 
1560 STA : 

1570 * 

1580 .3 LDA TRACK .CNIR 

1590 SEEK . TRACK 

1600 JSR FORMAT .TRACK 

1610 #ERR.CANT . FORMAT 

1620 BCS .5 

1630 #48 TRY UP TO 48 TIMES 
1640 STA RETRY. 

1650 .4 SEC 

1660 DEC RETRY .COUNT 

1620 BEQ .95 OUT OF RETRIES, ERRCODE=$30 
1680 JSR READ.ADDRESS 

1690 BCS .4 ERROR, TRY AGAIN 
1700 LDA R 

1710 BNE . MUST BE SECOTR 0 
1720 JSR READ. SECTO 

1730 BCS .4 ERROR, TRY AGAIN 
1740 INC TRACK.CNIR NEXT TRACK 

1750 LDA 

1760 CMP #35 FINISHED? 

1770 BCC .3 YET 

1780 CLC INDICATE NO ERROR 
1790 BCC .6 ee ALWAYS 


1800 * 
BFO4- AO OD =: 1810 .5 LDY #13 POINT AT ERROR SLOT IN IOB 
06- 91 1820 STA (IOB.PNTIR) ,Y 
BFO8- 38 1830 SEC FLAG ERROR 
BFO9- BD 88 CO 1840 .6 LDA MOTOR.OFF,X STOP DRIVE 
BFOC- 60 1850 RTS 
1860 * 
1870 * FORMAT A TRACK 
1880 * 
1890 FORMAT. TRACK 
BFOD- A9 00 ~=—- 1900 LDA #0 START WITH SECTOR 0 
BFOF- 85 3F 1910 STA EMT 
BF11- AO 80 1920 LDY #128 EXTRA SYNC'S BEFORE FIRST SECTOR 
BF13- DO 02 1930 . _ S 
15- A4 45 1940 .1 LDY SYNC. 
BF17- 20 56 BC 1950 .2 JSR WRITE. ADDRESS 
TA- BO 6B _ 1960 BCS .10 ERROR, EXIT NOW 
BF1C- 20 2A B8 1970 JSR WRITE. SECTO 
BFIF- BO 66 1980 BCS .10 ERROR, EXIT NOW 
BF21- E6 3F 1990 INC FMT.SECTOR NEXT SECTOR 
BF23- AS 3F 2000 LDA FMT R 
BF25- C9 10 2010 CMP #16 FINISHED WITH THIS TRACK? 
BF27- 90 EC 2020 . : 
2040 * VERIFY THE TRACK 
BF29- AO OF 2060 LDY #15 START WITH SECOTR 15 
BF2B- 84 3F — 2070 STY FMT.SECTOR 
BF2D- A9 30 2080 LDA #48 RETRY UP TO 48 TIMES 
BF2F- 8D 78 05 2090 STA RETRY.COUNT 
BF32- 99 A8 BF 2100 .3 STA SECTOR.FLAGS,Y CLEAR ALL THE SECTOR FLAGS 
BF35- 88 2110 DEY 
BF36- 10 FA 2120 BPL .3 
BF38- A4 45 2130 LDY SYNC.CNI DELAY A WHILE 
BF3A- 20 87 BF 2140 .4 JSR .10 12 CYCLES 
BF3D- 20 87 BF 2150 JSR 19 12 CYCLES 
BF40- 20 87 BF 2160 JSR .1 12 CYCLES 
BF43- 48 2170 PHA PHA+PLA=7 CYCLES 
BF44- 68 2180 PLA 
BF45- 2190 NOP NOP+DEY+BNE=7 CYCLES 
BF46- 88 200 DEY 
BF47- DO Fl 2210 BNE .4 WHOLE LOOP = 50 CYCLES 
BF49- 20 44 B9 2220 JSR READ.ADDRESS 
4C- BO 23 2230 BCS .8 ERROR, TRY AGAIN 
BF4E- AS 2D 2240 SECTOR BETTER BE SECTOR 0 
BF50- FO 15 2250 BEQ 6 IT IS, HURRAY! 
BF52- A910 2260 #16 REDUCE # SYNC'S BY TWO 
BF54- C5 45 2210 CMP SYNC.CNT UNLESS ALREADY < 16 
BF56- A5 45 2280 LDA SYNC.CNI 
BF58- F9 01 2290 SBC #1 
BF5A- 85 45 2300 STA SYNC.CNI 
5c- C9 05 2310 CMP #5 IF SYNC.CNT < 5, THERE IS NO HOPE 
BF5E- BO 11 2320 BCS .8 >=5, TRY AGAIN 
BF60- 38 2330 SEC FLAG COULDN'T DO IT 
BF61- 60 2340 RTS 
BF62- 20 44 B9 2350 .5 JSR READ.ADDRESS 
BF65- BO 05 2360 BCS .7 ERROR, TRY AGAIN 
BF67- 20 DC B8 2370 .6 JSR READ.SECTOR 
BF6A- 90 1C ~——-. 2380 wll GOOD! 
BF6C- CE 78 05 2390 . DEC RETRY. 
BF6F- DO Fl 2400 5 TRY AGAIN 
BF71- 20 44 B9 2410 . JSR READ.ADDRESS 
BF74- BO OB 2420 BCS . 
BF76- AS 2D 2430 LDA SECTO 
BF78- C9 OF 2440 CMP #15 SECTOR = 15? 
BF7A- DO 05 2450 BNE . 
BF7C- 20 DC B8 2460 JSR READ. SECTOR 
BF7F- 90 BC 2470 FORMAT. TRACK 
BF81- CE 78 05 2480 .9 DEC Y. 
84- DO E 2490 8 TRY AGAIN 
BF86- 38 2500 WE COULDN'T DO IT 
BF87- 60 2510 .10 + RTS 
2520 * 
BF88- A4 2D 2530 .11 +~&3=LDY R 
BF8A- BO AS BF 2540 LDA SECTOR. FLAGS ,Y 
BF8D- 30 DD ~—-. 2550 EMI d Y READ THIS ONE! 
BFSF- AQ FF 2560 LDA #SFF 
BF91- 99 A8 BF 2570 STA SECTOR.FLAGS,Y 
BF94- C6 3F  ~—_ 2580 DEC FMT. SECTOR 
BF96- 10 CA ~——- 22590 BPL .5 


NNNDNNNNNNNN 
SAANRAAAAHAAAGY 
OOD TAU RW NE © 
COOCOOOOCOO0Oo 


adda 


OOOOOO 
NOEIWWO 


OD WOW OO (000 00.00 C000 C000 C900 0O~ J ~J~J~] 
Ul RWN QW O~DIQHUTLRWDFOWO~I0) 
OOOO OO OOOO OOOOOO0O0OS 


ca 


wo 

& Be & 

WWWWWWHDDNDID DNDN NNNNDNNNNNNNNNDD 
ODO OODOWW!OOWO 

URW Dt OW O~ION 

OOO DOOOOO00O 


eHS FFFFFFFFFFFFFFFF 


‘ eHS FFFFFFFFFFFFFFFF 


PHYSICAL.SECTOR. VECTOR 
eHS 000D0B0907050301 


~HS OE0C0A080604020F 
* CLOBBER WHATEVER IS IN RAM CARD 
PATCH] JSR $FE93 WHAT PATCH REPLACED 
LDA Cer WRITE-ENABLE RAM CARD 
LDA PUT ZERO IN BYTE WE_ LATER 
STA $E000 TEST 
JMP $B/44 


TO SEE WHICH LANGUAGE 


-HS 000000 


RTS 
PATCH4 JSR TE FROM $B377 


"DISK FULL” ERROR 


Substring Search Function for Applesoft 


Lee Reynolds' article in the January 1981 Call A.P.P.L.E. touched 


off this project. 


When you are searching through text arrays for 


keywords, or through a mailing list for someone who lives on "XYZ 
Street", Applesoft can be vveeerrrrryyy Slow. This subroutine, 
linked in through the famous ampersand feature, will give you the 
speed your Apple is famous for. 


Lee's program was quite similar to this one, but it did not allow 
the keyword or the string-to-be-searched to be expressions. He 
left that extension as "an exercise for the reader". Being one 
reader badly in need of exercise, I took up the challenge. 


Although it is not really necessary, I used one of the newly 
discovered "secret" opcodes (which I wrote about last month) at 
line 2060. If you like, you can replace that line with: 

2060 GS1 LDA (FACMO) ,Y 


2065 TAX 
1010 *en nnn nnn nn nn ee 
1020 * 
1030 * SUBSTRING SEARCH FUNCTION FOR APPLESOFT 
1040 © meer nr nnn nnn nnn rn rn nnn 
1050 * 
1060 * & SUBS( AS, BS, I ) 
1070 * 
1080 * SEARCHES FOR FIRST OCCURRENCE OF 
1090 * BS IN AS; PUTS RESULT IN I 
1100 * 
1110 * RETURNS I=0 IF BS IS NOT IN AS 
1120 * 
1130 * (REFERENCE: CALL A.P.P.L.E. ARTICLE 
1140 * IN JANUARY 1981 ISSUE BY LEE REYNOLDS, 
1150 * PAGES 26-30.) 
1160 * 
1170 *------ = - He ee 
OOA0- 1180 FACMO -EQ SAO 
0052- 1190 TEMPPT -EQ $52 
0018- 1200 MAIN.LENGTH .EQ $18 
0019- 1210 MAIN -EQ $19,1A 
001B- 1220 KEY.LENGTH .EQ $1B 
001C- 1230 KEY -EQ $1C,1D 
1240 Bere rrr rrr rrr rn rrr nn 
DA5C- 1250 ASSIGN .EQ SDA5C STORE VALUE IN VARIABLE 
DECO- 1260 SYNCHR .EQ S$DECO REQUIRE (A) AS NEXT CHAR 
DD7B- 1270 FRMEVL .EQ SDD7B EVALUATE FORMULA 
DEBE- 1280 SYNCOM .EQ SDEBE REQUIRE COMMA 
DEB8- 1290 SYNRPN .EQ SDEB8 REQUIRE ")" 
DD6C- 1300 CHKSTR .EQ SDD6C REQUIRE STRING 
DFE3~- 1310 PTRGET .EQ SDFE3 GET POINTER 
E604- 1320 FRETMP .EQ SE604 FREE TEMPORARY STRING 
E301- 1330 SNGFLT .EQ $E301 FLOAT (Y) 
1340 *---------------- ---- - 
1350 -OR $300 
1360 -TF B.SUBSTRING SEARCH 
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0300- 
0302- 
0305- 
0307- 
030A- 
030C- 
030F- 


0310- 
0313- 


0315- 
0317- 
O31A- 
031D- 
031E- 


0320- 
0322- 
0325- 
0327- 
032A- 
032D- 
032F- 
0331- 


0334- 


0337- 
0339- 
033B- 
033D- 
033F- 
0341- 
0343- 
0345- 
0347- 
0348- 
034A- 
034C- 
034D- 
034E- 
O34F- 
0352- 
0354- 
0355- 
0357- 
035A- 
035C- 
035E- 
0360- 
0361- 
0363- 
0365- 
0367- 


E6 
E8 
C6 
DO 
AO 
FO 


03 
03 
03 


42 


03 
DE 


03 
03 
DF 


DE 


03 


E3 


DA 


SETUP.AMPERSAND 


LDA 
STA 


#S4C 
$3F5 
#SUB 


JMP OPCODE 


#4 
SUBOT,X 


COMPARE FOR "SUBS$(" 


COMPARE WITH INPUT 


#MAIN. LENGTH 

GET.STRING 

#KEY .LENGTH 

GET. STRING 

PTRGET GET VARIABLE FOR RESULT 
$85 

$86 


SYNRPN REQUIRE RIGHT PAREN 


#0 ANSWER OFFSET 

MAIN.LENGTH SEE IF IT CAN STILL FIT 
KEY . LENGTH 

8 WILL NOT FIT 

#0 

(KEY) ,Y 

(MAIN) ,Y 

6 


KEY. LENGTH 
23 
X IS RESULT 


SNGFLT 
$12 


FLOAT THE BYTE IN Y 


$11 
ASSIGN 
MAIN 
7 
MAIN+1 


STORE VALUE IN VARIABLE 
3 


MAIN. LENGTH 


#0 
4 


19 


RESULT IS 0 
-. ALWAYS 


1940 *--------------------------------- 


1950 * GET STRING EXPRESSION 

1960 Brrr rr rr rr rrr rrr rrr 

1970 GET.STRING 
0369- 8C 7A 03 1980 STY GS2 PLUG OUTPUT VECTOR 
036C- 20 7B DD 1990 JSR FRMEVL EVALUATE FORMULA 
O36F- 20 BE DE 2000 JSR SYNCOM REQUIRE TRAILING COMMA 
0372- 20 6C DD 2010 JSR CHKSTR REQUIRE STRING 
0375- AO 02 2020 LDY #2 GET STRING DATA 


2030 * THE NEXT LINE IS A "SECRET" 6502 OPCODE, 
2040 * WHICH DOES BOTH LDA (FACMO),Y AND LDX (FACMO) ,Y 
2050 * AT THE SAME TIME. 

0377- B3 AO 2060 GS1 ~-DA #$B3,#FACMO 


0379- 96 00 2070 STX *-*,Y PLUGGED IN FROM ABOVE 

037A- 2080 GS2 -EQ *-1 

O37B- 88 2090 DEY 

037C- 10 F9 2100 BPL GS] 

O37E- 60 2110 RTS 
2120 Bem rrr rrr rrr rrr rrr rn rn nn 
2130 * FREE UP ANY TEMPORARY STRINGS 
2140 Bem mmr rrr rr rrr rr rr rrr rr rrr nn 
2150 FREE.ONE.STRING 

O37F- A5 53 2160 LDA TEMPPT+1 

0381- AO 00 2170 LDY #0 

0383- 20 04 E6 2180 JSR FRETMP 
2190 FREE.STRINGS 

0386- A5 52 2200 LDA TEMPPT 

0388- C9 56 2210 CMP #S$56 EMPTY? 

O38A- BO F3 2220 BCS FREE.ONE.STRING 

038C- 60 2230 RTS 


Here iS a sample Applesoft program which uses the Substring 
Search Subroutine. Line 10 loads the subroutine and calls 768 to 
link in the ampersand vector. Line 120 reads in your search key. 
If you just hit the RETURN key, the program quits. 


Line 130 gets the next string to be searched from the DATA list. 
If the value is ".", we are at the end of the list, so it loops 
back to line 110. 


Line 140 calls our substring search subroutine to see if the key 
string can be found in the search string. If not, it jumps back 
to line 130 to get another search string. Lines 150-180 print 
the search string, emphasizing the portion that matched the key 
string by printing it in inverse. 


10 PRINT CHRS (4)"BLOAD B.SUBSTRING SEARCH": CALL 768 

100 DATA ASM,DELETE,FAST,FIND,HIDE, INCREMENT ,LIST, LOAD ,MEMORY ,ME 
RGE ,MGO,NEW, PRT , RENUMBER, RESTORE, SAVE, SLOW, USER,VAL,. 

110 RESTORE 

120 INPUT "KEY STRING: ";KS$: IF KS = "" THEN’ END 

130 READ AS: IF AS = "." THEN PRINT : GOTO 110 

140 & SUBS(AS,KS$,1I): IF I = 0 THEN 130 

150 IF I > 1 THEN PRINT LEFTS (AS,I - 1); 

160 INVERSE : PRINT KS;: NORMAL 

170 L = LEN (A$) - I +1 - LEN (K$): IF L > 0 THEN PRINT RIGHTS 
(AS,L); 

180 PRINT : GOTO 130 
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